home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / irc / cybershiela.lha / cs / cs_when.amirx < prev    next >
Text File  |  1999-09-26  |  1KB  |  45 lines
  1. /* CyberShiela MultiResponse File */
  2. nick=getclip('NICK')
  3. xx=random(1,31,time('s'))
  4. select
  5. when xx=1 then a="Tomorrow at 6:00pm"
  6. when xx=2 then a="In an hour"
  7. when xx=3 then a="In ten minutes"
  8. when xx=4 then a="In less than 2 hours"
  9. when xx=5 then a="It won't happen unless you act now"
  10. when xx=6 then a="In three days"
  11. when xx=7 then a="Today"
  12. when xx=8 then a="Now"
  13. when xx=9 then a="Tonight"
  14. when xx=10 then a="In 1997 sometime"
  15. when xx=11 then a="Three days before the second full moon after your next birthday"
  16. when xx=12 then a="Next week"
  17. when xx=13 then a="In the next year"
  18. when xx=14 then a="Never"
  19. when xx=15 then a="Tomorrow afternoon"
  20. when xx=16 then a="Next month"
  21. when xx=17 then a="In January"
  22. when xx=18 then a="In February"
  23. when xx=19 then a="In March"
  24. when xx=20 then a="In April"
  25. when xx=21 then a="In May"
  26. when xx=22 then a="In June"
  27. when xx=23 then a="In July"
  28. when xx=24 then a="In August"
  29. when xx=25 then a="In September"
  30. when xx=26 then a="In October"
  31. when xx=27 then a="In November"
  32. when xx=28 then a="In December"
  33. when xx=29 then a="Summertime"
  34. when xx=30 then a="Wintertime"
  35. when xx=31 then a="Springtime"
  36. end
  37. modif:
  38. user=nick
  39. old=a
  40. m=length(user);temp=a;x=pos("$1",temp);if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(user,temp2,x-1,m," ");end
  41. temp=old;m=length(channam);x=pos("$chan",temp);if x~=0 then do;temp2 = delstr(temp,x,5);old = insert(channam,temp2,x-1,m," ");end
  42. a=old
  43. 'say 'A
  44. exit
  45.